home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / Ersatzquelle / PrinterSupport.def < prev    next >
Text File  |  1993-08-15  |  3KB  |  98 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.    PrinterSupport.def
  4.  *  :Author.     Michael Frieß
  5.  *  :Address.    Kernerstr. 22a
  6.  *  :Address.    7000 Stuttgart 1
  7.  *  :shortcut.   [mif]
  8.  *  :Version.    2.01
  9.  *  :Date.       12.10.89
  10.  *  :Modified.   [gs] Anpassung an m2c 3.2d
  11.  *  :Copyright.  PD
  12.  *  :Language.   Modula-II
  13.  *  :Translator. M2Amiga
  14.  *  :Contents.   PROCEDUREs zum Druckerhandling
  15.  *  :UpDate.     Update von V1.0 [fbs]
  16.  *  :Remark.     Diese Version ist die Zusammenführung zweier
  17.  *  :Remark.     getrennt entwickelter Module. Eines von Fridtjof
  18.  *  :Remark.     und eines von mir.
  19.  *
  20.  *********************************************************************)
  21.  
  22. DEFINITION MODULE PrinterSupport;
  23. (* (C) Copyright 1988 by Michael Frieß and Fridtjof Siebert *)
  24.  
  25. FROM Exec     IMPORT UByte;
  26. FROM Graphics IMPORT RastPortPtr, ColorMapPtr, ViewModeSet;
  27. FROM Printer  IMPORT Special, SpecialSet;
  28.  
  29.  
  30. PROCEDURE OpenPrinter;
  31.   (* :semantic.opens printer for further use. Call this procedure
  32.      :semantic.before working with your printer.
  33.      :note.Current implementation of M2Amiga DOESN´T return whether
  34.      :note.OpenLibrary was successful (TRUE) or not (FALSE).
  35.      :update.Error checking of memory allocation implemented.
  36.      :update.Automatic ClosePrinter when your program is terminated.
  37.   *)
  38.  
  39.  
  40. PROCEDURE ClosePrinter;
  41.   (* :semantic.closes printer.
  42.      :update.If you haven´t closed printer until end of your program,
  43.      :update.it will be automatically closed.
  44.   *)
  45.  
  46.  
  47. PROCEDURE PrintString (s : ARRAY OF CHAR);
  48.   (* :input.s = string to be printed
  49.      :semantic.prints string s with translation of escape sequences.
  50.      :update.Replaces procedure WritePrinter of V1.0
  51.   *)
  52.  
  53. PROCEDURE PrintRaw    (s : ARRAY OF CHAR);
  54.   (* :input.s = string to be printed
  55.      :semantic.prints string s without translation, so you can use
  56.      :semantic.printer specific escape sequences not supported by
  57.      :semantic.printer.device
  58.   *)
  59.  
  60.  
  61. PROCEDURE PrintChar (c : CHAR);
  62.   (* :input.c = char to be printed
  63.      :semantic.prints char c.
  64.   *)
  65.  
  66.  
  67. PROCEDURE PrintCommand (Cmd : CARDINAL; p0, p1, p2, p3 : UByte);
  68.   (* :input.Cmd = Printer Command (see Printer.def)
  69.      :input.p0..p3 = parameters of Cmd. Just set them to zero, if
  70.      :input.         they are unused.
  71.      :semantic.Executes Cmd with given parameters.
  72.   *)
  73.  
  74. PROCEDURE DumpRPort (rp: RastPortPtr; cm: ColorMapPtr;
  75.                     Modes: ViewModeSet; x,y,w,h: CARDINAL;
  76.                     c,r: LONGINT; s: SpecialSet);
  77.   (* :input.rp = Pointer to RastPort to be printed
  78.      :input.cm = Pointer to ColorMap
  79.      :input.Modes =
  80.      :input.x = x offset into rp
  81.      :input.y = y offset into rp
  82.      :input.w = x size in rp to be printed
  83.      :input.h = y size in rp to be printed
  84.      :input.c = column size of area
  85.      :input.r = row size of area
  86.      :input.s = kind of interpretation of c and r
  87.      :semantic.dumps part of rp (specified by x,y,w and h) with
  88.      :semantic.given parameters on printer. For more details see
  89.      :semantic.appendix B of ROM Kernel Reference Manual (Libraries
  90.      :semantic.and Devices)
  91.      :update.none (still not tested)
  92.   *)
  93.  
  94. (* I didn't need this yet so it isn't tested. Only for completion.         *)
  95. (* Use Libraries & Devices Manual (if you have) for further information.   *)
  96.  
  97. END PrinterSupport.
  98.